

<%

If ""=trim(Session("UserID"))  Then
 	''跳转至登陆页面
 	response.redirect "/passport/login.asp" 	
 end if
 
 
 Dim rsObj_checklogin,strSql_cl
	 Set rsObj_checklogin = Server.CreateObject("ADODB.Recordset")
	strSql_cl=""
	strSql_cl=strSql_cl & " SELECT DISTINCT T_RES.* "
	strSql_cl=strSql_cl & " FROM T_RES INNER JOIN T_ROLE_RES INNER JOIN T_USER_ROLE  "
	strSql_cl=strSql_cl & " ON T_ROLE_RES.role_id = T_USER_ROLE.role_id ON  T_RES.id = T_ROLE_RES.res_id "
	strSql_cl=strSql_cl & " WHERE (T_USER_ROLE.user_id ='"&trim(Session("UserID"))&"') AND (T_RES.res_num = '"& respagecode &"') "
	strSql_cl=strSql_cl & " ORDER BY T_RES.res_ppath, T_RES.menu_num "
	''Response.Write strSql_cl&"-----"
	rsObj_checklogin.Open strSql_cl, Conn, 1, 3
	If (rsObj_checklogin.BOF And rsObj_checklogin.EOF) Then 
		Response.Write "--测试信息--    [无权限访问该页面！请和管理员联系，页面代码为："&respagecode &"   用户代码:"&trim(Session("UserID"))&"]"
		''response.End
		''response.redirect "/passport/login.asp"
	end if	 
	rsObj_checklogin.close
	''Set rsObj_checklogin = Nothing 

 ''测试信息----begin
	Dim PageURL
	PageURL="http://"&Request.ServerVariables("HTTP_HOST")&request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING") 
	PageURL="----test infor----" & PageURL
	''Response.Write PageURL
	''测试信息----end
%>
